﻿Public Class Shutdown

    Private Function OS_Extra_Graphics()

        If My.Computer.Info.OSFullName.Contains("Windows Vista") Then
            Return "1"
        ElseIf My.Computer.Info.OSFullName.Contains("Windows 7") Then
            Return "1"
        ElseIf My.Computer.Info.OSFullName.Contains("Windows 8") Then
            Return "1"
        Else
            Return "0"
        End If

    End Function

    Private Sub Enable_Extra_Graphics()
        If OS_Extra_Graphics() = "1" Then
            Shell("net start uxsms")
        End If
    End Sub

    Private Sub ReOpen_Windows_Explorer()
        Shell("explorer.exe")
    End Sub

End Class